(mail-extract-address-components): Quote the comma in ,-pos.

diff --git a/lisp/mail/mail-extr.el b/lisp/mail/mail-extr.el
index dd69f63f88d5ddae836df0ecd7d60cd39e6ec7e2..aab34e9fd9e8e27360779c2294c2c697769d9681 100644 (file)
--- a/lisp/mail/mail-extr.el
+++ b/lisp/mail/mail-extr.el
@@ -849,7 +849,7 @@ If ADDRESS contains more than one RFC-822 address, only the first is
         ((setq record-pos-symbol
                (cdr (assq char
                           '((?< . <-pos) (?> . >-pos) (?@ . @-pos)
-                            (?: . :-pos) (?, . ,-pos) (?! . !-pos)
+                            (?: . :-pos) (?, . \,-pos) (?! . !-pos)
                             (?% . %-pos) (?\; . \;-pos)))))
          (set record-pos-symbol
               (cons (point) (symbol-value record-pos-symbol)))